From: Po Lu <luangruo@yahoo.com>
Date: Sat, 4 May 2024 03:11:36 +0000 (+0800)
Subject: * src/lread.c (warn_missing_cookie): Exempt the user init file.
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~1665
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=a5acc89712151645525bd2c0e2c90bf46a8e61ec;p=emacs.git

* src/lread.c (warn_missing_cookie): Exempt the user init file.
---

diff --git a/src/lread.c b/src/lread.c
index f9a1a8562cb..2c856f5d42e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1345,10 +1345,17 @@ close_file_unwind_android_fd (void *ptr)
 static void
 warn_missing_cookie (Lisp_Object file)
 {
-  Lisp_Object msg = CALLN (Fformat,
-			   build_string ("File %s lacks `lexical-binding'"
-					 " directive on its first line"),
-			   file);
+  Lisp_Object msg;
+
+  /* The user init file should not be subject to these warnings, as
+     Emacs doesn't insert cookies into generated init files.  */
+  if (!NILP (Fequal (file, Vuser_init_file)))
+    return;
+
+  file = CALLN (Fformat,
+		build_string ("File %s lacks `lexical-binding'"
+			      " directive on its first line"),
+		file);
   Vdelayed_warnings_list = Fcons (list2 (Qlexical_binding, msg),
 				  Vdelayed_warnings_list);
 }